home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / nifhand / ust.aut < prev   
Text File  |  1991-10-18  |  941b  |  56 lines
  1.  
  2. ;あなたのＩＤも同様にして書いておくと、お目当ての人が見つからなかった時に
  3. ;素早くルーチンを抜けることが出来ます
  4.  
  5. ECHO "^G仲間探しをしますのでしばらくお待ち下さい＞"
  6. SEND "UST\r",1
  7.  
  8. LOOK 9
  9.  CASE "SDI00528"        ;探したい人のＩＤ
  10.   $10="SDI00528"        ;探したい人のＩＤ
  11.   $11="かっくん"        ;その人のハンドル
  12.  CASE "QGA00522"
  13.   $10="QGA00522"
  14.   $11="ＳＵＭ"
  15.  CASE "PEE01366"
  16.   $10="PEE01366"
  17.   $11="ＪＯＵＲ"
  18.  CASE "MHH00136"
  19.   $10="MHH00136"
  20.   $11="KING STONE"
  21.  CASE "NBH00310"
  22.   $10="NBH00310"
  23.   $11="MEKALIN"
  24.  CASE "PBA02544"
  25.   $10="PBA02544"
  26.   $11="ＹＯＫＯ"
  27.  CASE "^J＞"
  28.   END
  29.  CASE ">"
  30.   END
  31.  CASE/TIMEOUT
  32.   END
  33. FREE
  34.  
  35. IF $10==$5
  36.  LOOK
  37.   CASE ">"
  38.   CASE "^J＞"
  39.  FREE
  40.  ECHO "^Gお目当ての人はいないようですね\r"
  41.  END
  42. ENDIF
  43.  
  44. LOOK
  45.  CASE ">"
  46.  CASE "^J＞"
  47. FREE
  48. ECHO "^G$11さんを発見！＞"
  49. SEND "SEND $10 $8 from $7\r",1
  50. LOOK
  51.  CASE ">"
  52.  CASE "^J＞"
  53. FREE
  54. END
  55.  
  56.